Celestin Apprentice 5/Apprentice-Release5.iso/Source Code/C/Applications/GW AdaEd 1.4.2/GWAdaDemos/GWU Demos/screenio.ads

Text File | 1994-01-09 | 443b | 19 lines

--
--  Screen_IO contains a task which controls the concurrency in the
--  I/O to the screen.
--  Arthur Vargas Lopes, The George Washington University
--
WITH Screen;
USE Screen;
PACKAGE Screen_IO IS

    SUBTYPE Height   IS Screen.Height;
    SUBTYPE Width    IS Screen.Width;
    SUBTYPE Position IS Screen.Position;

    TASK Terminal IS
        ENTRY WriteAt(Where: Screen.Position; What : String );
    END Terminal;

END Screen_IO;